home *** CD-ROM | disk | FTP | other *** search
/ Hackers Matrix / Hacker's Matrix (nCite Software) (2003).iso / Interface / Dispatcher.vbs < prev    next >
Text File  |  2001-11-01  |  1KB  |  39 lines

  1. ''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''
  2. '  Macromedia Flash Dispatcher -- a scriptable detector for Flash Player
  3. '  copyright (c) 2000 Macromedia, Inc.
  4. '''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''
  5.  
  6.  
  7. ' Check for the Flash ActiveX control.
  8. '
  9. ' This script will be ignored by browsers that do not support
  10. ' VBScript (although Microsoft Internet Explorer will warn the
  11. ' user that a script in an unsupported language has been
  12. ' encountered if the user has checked "Show unsupported scripting
  13. ' language errors" in Preferences->Web Browser->Web Content).
  14. '
  15. ' This technique due to Jeff Brown and Rafael M. Mu±oz of
  16. ' Microsoft Corporation.  Version testing adapted from Macromedia
  17. ' Flash Technical Note #12853.
  18.  
  19. Private i, x
  20.  
  21. On Error Resume Next
  22.  
  23. MM_FlashControlInstalled = False
  24.  
  25. For i = 6 To 1 Step -1
  26.    Set x = CreateObject("ShockwaveFlash.ShockwaveFlash." & i)
  27.  
  28.    MM_FlashControlInstalled = IsObject(x)
  29.  
  30.    If MM_FlashControlInstalled Then
  31.        MM_FlashControlVersion = CStr(i)
  32.        Exit For
  33.    End If
  34. Next
  35.